home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / ancient / search / ltdata / tab.dir / 00114_Script_GO PAGE FROM STRIP < prev    next >
Text File  |  1995-11-24  |  497b  |  29 lines
  1. GLOBAL gPagePtr, gPageMovieList
  2.  
  3. on mouseDown
  4.   -- 
  5.   
  6.   puppetSound "bottle1"
  7.   
  8.   --
  9. end
  10.  
  11. on mouseUp
  12.   --
  13.   
  14.   repeat while soundBusy(1)
  15.     nothing
  16.   end repeat
  17.   
  18.   -- set nextMovie = "wisdom:ltdata:" &  getProp(gPageMovieList, gPagePtr)
  19.   -- go movie NextMovie
  20.   -- go movie getProp(gPageMovieList, gPagePtr)
  21.   
  22.   sound stop 1
  23.   sound stop 2 
  24.   go movie getProp(gPageMovieList, gPagePtr)
  25.   
  26.   -- put "gPagePtr:" && gPagePtr && "nextMovie:" && nextMovie
  27.   
  28.   --
  29. end